home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / SQL / ariacom / br15Evaluation.exe / br15Evaluation / ASP SCripts / vbItemDisplay.asp < prev    next >
Text File  |  2002-09-09  |  9KB  |  224 lines
  1. <%
  2. '
  3. '  Ariacom Business Reports
  4. '  Copyright 2001-2002, ARIACOM SARL, Geneva, Switzerland
  5. '  All rights reserved
  6. '  www.ariacom.com
  7. '
  8.  
  9. '
  10. 'startGenericItems
  11. '
  12. sub startGenericItems(theNode)
  13.   Response.Write gStrBeforeItem
  14.   Response.Write "<input name=""" & kStrPrefixTagName  & theNode.getAttribute(kXml_AttributeId) & """ value=""" & theNode.getAttribute(kXml_AttributeDataTag) &""" type=""hidden"">"
  15.   Response.Write theNode.getAttribute(kXml_AttributeLabel) & gStrAfterLabel
  16. end sub
  17.  
  18. '
  19. 'stopGenericItems
  20. '
  21. sub stopGenericItems(theNode)
  22.   Response.Write gStrAfterItem
  23. end sub
  24.  
  25. '
  26. 'itemActionSubmitDisplay
  27. '
  28. sub itemActionSubmitDisplay(theNode)
  29.   'Set the action buttons
  30.   if theNode.getAttribute(kXml_AttributeIdent) <> "" then
  31.     Response.Write "<input "
  32.     call setTagAttribute("name", kStrPrefixIdent & theNode.text) 'Name
  33.     call setTagAttribute("value", theNode.getAttribute(kXml_AttributeIdent)) 'Value
  34.     Response.Write " type=""hidden"">"
  35.   end if
  36.   if theNode.getAttribute(kXml_AttributeParam) <> "" then
  37.     Response.Write "<input "
  38.     call setTagAttribute(" name", kStrPrefixParam & theNode.text) 'Name
  39.     call setTagAttribute("value", theNode.getAttribute(kXml_AttributeParam)) 'Value
  40.     Response.Write " type=""hidden"">"
  41.   end if
  42.   Response.Write gStrBeforeItem & "<input " 
  43.   call setTagAttribute("name", kStrPrefixNavigation & theNode.text) 'Name
  44.   call setTagAttribute("value", theNode.getAttribute(kXml_AttributeLabel)) 'Value
  45.   call setTagAttribute("alt", theNode.getAttribute(kXml_AttributeLabel)) 'Alt
  46.   if theNode.getAttribute(kXml_AttributeCloseWindow) = kXml_AttributeValueYes then 
  47.     call setTagAttribute("type", "button") 'Type
  48.     call setTagAttribute("onclick", "self.close()") 'close this window
  49.   elseif theNode.getAttribute(kXml_AttributeNewWindow) = kXml_AttributeValueYes then
  50.     call setTagAttributeDefault("type", gStrInputType, "button") 'Type
  51.     dim cmd
  52.     cmd = "javascript:Item('" & buildURLParam(theNode.text, theNode.getAttribute(kXml_AttributeIdent), theNode.getAttribute(kXml_AttributeParam))
  53.     cmd = cmd & "','" & Session("windowCount") & "')"
  54.       Session("windowCount") = Session("windowCount") + 1
  55.     call setTagAttribute("onclick", cmd) 'open in new window
  56.   else
  57.     call setTagAttributeDefault("type", gStrInputType, "submit") 'Type
  58.   end if
  59.   Response.Write gStrInputEx & ">" & gStrAfterItem
  60. end sub
  61.  
  62. '
  63. 'itemActionLinkDisplay
  64. '
  65. sub itemActionLinkDisplay(theNode)
  66.   'Display links
  67.   Response.Write gStrBeforeItem & "<a href="
  68.   if theNode.getAttribute(kXml_AttributeNewWindow) = kXml_AttributeValueYes then Response.Write """javascript:Item('"
  69.   Response.Write buildURLParam(theNode.text, theNode.getAttribute(kXml_AttributeIdent), theNode.getAttribute(kXml_AttributeParam))
  70.   if theNode.getAttribute(kXml_AttributeNewWindow) = kXml_AttributeValueYes then 
  71.     Response.Write "','" & Session("windowCount")
  72.       Response.Write "')"""
  73.       Session("windowCount") = Session("windowCount") + 1
  74.   else 
  75.     if theNode.getAttribute(kXml_AttributeFrameName) <> "" then 
  76.         Response.Write " target=""" & theNode.getAttribute(kXml_AttributeFrameName) & """"
  77.       else
  78.         Response.Write " target=""" & gStrMainFrameName & """"
  79.       end if
  80.   end if
  81.   Response.Write  gStrInputEx & ">" & theNode.getAttribute(kXml_AttributeLabel) & gStrAfterLabel & "</a>" & gStrAfterItem
  82. end sub
  83.  
  84.  
  85.  
  86. '
  87. 'itemDisplay
  88. '
  89. sub itemDisplay(theNode)
  90.   Response.Write gStrBeforeItem & theNode.getAttribute(kXml_AttributeLabel) & gStrAfterLabel
  91.   Response.Write theNode.text
  92.   call stopGenericItems(theNode)
  93. end sub
  94.  
  95. '
  96. 'itemStringDisplay
  97. '
  98. sub itemStringDisplay(theNode)
  99.   call startGenericItems(theNode)
  100.   Response.Write "<input " 
  101.   call setTagAttributeDefault("type", gStrInputType, "text") 'Type
  102.   call setTagAttribute("name", theNode.getAttribute(kXml_AttributeId)) 'Name
  103.   call setTagAttribute("value", theNode.text) 'Value
  104.   call setTagAttributeDefault("maxLength", theNode.getAttribute(kXml_AttributeMaxLength), kStrDefaultInputMaxLength) 'MaxLength
  105.   call setTagAttributeDefault("size", gStrInputSize, kStrDefaultInputSize) 'Size
  106.   Response.Write gStrInputEx & ">"
  107.   call stopGenericItems(theNode)
  108. end sub
  109.  
  110. '
  111. 'itemMultiStringDisplay
  112. '
  113. sub itemMultiStringDisplay(theNode)
  114.   call startGenericItems(theNode)
  115.   Response.Write "<textarea "
  116.   call setTagAttribute("name", theNode.getAttribute(kXml_AttributeId)) 'Name
  117.   call setTagAttributeDefault("cols", gStrTextAreaCols, kStrDefaultTextAreaCols) 'Cols
  118.   call setTagAttributeDefault("rows", gStrTextAreaRows, kStrDefaultTextAreaRows) 'Rows
  119.   Response.Write gStrTextAreaEx & ">"
  120.   
  121.   dim childValue
  122.   For Each childValue In theNode.childNodes
  123.     Response.Write childValue.text & VbCrLf
  124.   Next
  125.   Response.Write "</textarea>"
  126.   call stopGenericItems(theNode)
  127. end sub
  128.  
  129. '
  130. 'itemNumericDisplay
  131. '
  132. sub itemNumericDisplay(theNode)
  133.   call startGenericItems(theNode)
  134.  
  135.   'Display output
  136.   Response.Write "<input " 
  137.   call setTagAttributeDefault("type", gStrInputType, "text") 'Type
  138.   call setTagAttribute("name", theNode.getAttribute(kXml_AttributeId)) 'Name
  139.   call setTagAttribute("value", theNode.text) 'Value
  140.   call setTagAttributeDefault("size", gStrInputSize, kStrDefaultInputSize) 'Size
  141.   Response.Write gStrInputEx & ">"
  142.  
  143.   call stopGenericItems(theNode)
  144. end sub
  145.  
  146. '
  147. 'itemDateTimeDisplay
  148. '
  149. sub itemDateTimeDisplay(theNode)
  150.   'same as string
  151.   itemStringDisplay(theNode)
  152. end sub
  153.  
  154. '
  155. 'itemBooleanDisplay
  156. '
  157. sub itemBooleanDisplay(theNode)
  158.   Response.Write "<input name=""" & kStrPrefixTagName  & theNode.getAttribute(kXml_AttributeId) & """ value=""" & theNode.getAttribute(kXml_AttributeDataTag) &""" type=""hidden"">"
  159.   if theNode.getAttribute(kXml_AttributeIsCheckbox) = kXml_AttributeValueYes then
  160.     'boolean as a checkbox, set an hidden tag with the value not checked
  161.     Response.Write gStrBeforeItem
  162.     Response.Write "<input value=""1"" name=""" & theNode.getAttribute(kXml_AttributeId) & """ type=""checkbox"""
  163.     if theNode.text="1" then Response.Write " checked " end if
  164.     Response.Write ">"
  165.     'add special tag for value 0 of the check box
  166.     Response.Write "<input name=""" & kStrPrefixTagName  & theNode.getAttribute(kXml_AttributeId)&  gTagCheckBoxExist & """ value=""" & theNode.getAttribute(kXml_AttributeDataTag) &""" type=""hidden"">"
  167.     Response.Write "<input name=""" & theNode.getAttribute(kXml_AttributeId) & gTagCheckBoxExist & """ value=""0"" type=""hidden"">"
  168.     Response.Write theNode.getAttribute(kXml_AttributeLabel)
  169.   else
  170.     'radio type
  171.     Response.Write gStrBeforeItem &  theNode.getAttribute(kXml_AttributeLabel)
  172.     Response.Write  "<input name=""" & theNode.getAttribute(kXml_AttributeId) & """ value=""1"" type=""radio""" 
  173.     if theNode.text="1" then Response.Write " checked " end if
  174.     Response.Write " value=""" & theNode.text & """>" & theNode.getAttribute(kXml_AttributeLabelYes)
  175.     Response.Write gStrAfterLabel & "<input name=""" & theNode.getAttribute(kXml_AttributeId) & """ value=""0"" type=""radio""" 
  176.     if theNode.text="0" then Response.Write " checked " end if
  177.     Response.Write " value=""" & theNode.text & """>" & theNode.getAttribute(kXml_AttributeLabelNo)
  178.   end if
  179.  
  180.   call stopGenericItems(theNode)
  181. end sub 
  182.  
  183. '
  184. 'itemEnumDisplay
  185. '
  186. sub itemEnumDisplay(theNode)
  187.   'add special tag to detect the list box 
  188.   Response.Write "<input name=""" & kStrPrefixTagName  & theNode.getAttribute(kXml_AttributeId)&  gTagListBoxExist & """ value=""" & theNode.getAttribute(kXml_AttributeDataTag) &""" type=""hidden"">"
  189.   Response.Write "<input name=""" & theNode.getAttribute(kXml_AttributeId) & gTagListBoxExist & """ value=""0"" type=""hidden"">"
  190.  
  191.   call startGenericItems(theNode)
  192.   'Select
  193.   Response.Write "<select "
  194.   call setTagAttribute("name", theNode.getAttribute(kXml_AttributeId)) 'Name
  195.   call setTagAttribute("value", theNode.text) 'Value
  196.   if theNode.getAttribute(kXml_AttributeMultiple) = kXml_AttributeValueYes then
  197.     Response.Write " multiple "
  198.     call setTagAttributeDefault("size", gStrSelectSize, kStrDefaultSelectSize) 'Size
  199.   elseif gStrSelectSize <> "" then
  200.     call setTagAttribute("size", gStrSelectSize) 'Size
  201.   end if
  202.   Response.Write gStrSelectEx & ">"
  203.  
  204.   'select the ranges
  205.   dim childRange, childValue
  206.   For Each childRange In theNode.selectSingleNode("./" & kXml_TagItemEnumRange).childNodes
  207.     Response.Write "<option value=""" & childRange.text & """"
  208.     'Select the right value
  209.     For Each childValue In theNode.selectSingleNode("./" & kXml_TagItemEnumValue).childNodes
  210.       if childValue.text = childRange.text then
  211.         Response.Write " selected"
  212.       end if
  213.     Next
  214.     Response.Write ">" & childRange.getAttribute(kXml_AttributeLabel)
  215.   Next
  216.   Response.Write "</select>"
  217.  
  218.   call stopGenericItems(theNode)
  219. end sub
  220.  
  221.  
  222. %>
  223.  
  224.